#lang racket

(provide print o atomic? assoc-replace)

;;; utilities
;;

(define (print s) (display s) (newline))

(define (o f g)
  (lambda (x)
    (f (g x))))

(define (atomic? x)
  (or (number? x) (boolean? x) (string? x)))

(define assoc-replace dict-set)

